//===================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - sP @YT } -
//===================================
//= G1.5 [¦B]
//===================================

morocc,183,94,3	script	sP	85,{
	mes "[sP]";
	mes "ڬOMvZP㪺KKA";
	mes "ڥiHAv˸mMפ~C";
	mes "AQnv˸mMפ@~O?";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);

	set .@menu$,.@strRetPart1$+":"+.@strRetPart2$+":"+.@strRetPart3$+":"+.@strRetPart4$+":"+.@strRetPart5$+":"+.@strRetPart6$+":"+.@strRetPart7$+":"+.@strRetPart8$+":"+.@strRetPart9$+":"+.@strRetPart10$;

	switch(select(.@menu$)) {
	case 1:
		set .@part,1;
		if (getequipisequiped(1) == 0) {
			mes "[sP]";
			mes "nnڧAYvo@I?";
			close;
		}
		break;
	case 2:
		set .@part,2;
		if (getequipisequiped(2) == 0) {
			mes "[sP]";
			mes "ӧa! ڷ|ΧڼvAC";
			close;
		}
		break;
	case 3:
		set .@part,3;
		if (getequipisequiped(3) == 0) {
			mes "[sP]";
			mes "ܩp{b٨Sا޳NbAˤWbC..";
			close;
		}
		break;
	case 4:
		set .@part,4;
		if (getequipisequiped(4) == 0) {
			mes "[sP]";
			mes "ܩp{b٨Sا޳NbAkˤWbC!";
			close;
		}
		break;
	case 5:
		set .@part,5;
		if (getequipisequiped(5) == 0) {
			mes "[sP]";
			mes "A֦˸mؤS~TO?";
			close;
		}
		break;
	case 6:
		set .@part,6;
		if (getequipisequiped(6) == 0) {
			mes "[sP]";
			mes "A}uOqC!";
			close;
		}
		break;
	case 7:
		set .@part,7;
		if (getequipisequiped(7) == 0) {
			mes "[sP]";
			mes "AOظ˹~?";
			close;
		}
		break;
	case 8:
		set .@part,8;
		if (getequipisequiped(8) == 0) {
			mes "[sP]";
			mes "AOظ˹~?";
			close;
		}
		break;
	case 9:
		set .@part,9;
		if (getequipisequiped(9) == 0) {
			mes "[sP]";
			mes "AOظ˹~? AӤ|OYLa?";
			close;
		}
		break;
	case 10:
		set .@part,10;
		if (getequipisequiped(10) == 0) {
			mes "[sP]";
			mes "...Au\Yv? ?";
			close;
		}
		break;
	}
	if( !getequipisequiped(.@part) )
		close;

	if( !getequipisenableref(.@part) )
	{
		mes "[sP]";
		mes "AoӶجOLkvس!...";
		close;
	}
	if( !getequipisidentify(.@part) )
	{
		mes "[sP]";
		mes "This has not been identified. So, it can't be refined...";
		close;
	}
	if( getequiprefinerycnt(.@part) >= 10 )
	{
		mes "[sP]";
		mes "oZwgv̰šALkAvF..";
		close;
	}
	switch( getequipweaponlv(.@part) )
	{
		case 1: callsub S_RefineValidate,1,7620,50,.@part; break;
		case 2: callsub S_RefineValidate,2,7620,200,.@part; break;
		case 3: callsub S_RefineValidate,3,7620,5000,.@part; break;
		case 4: callsub S_RefineValidate,4,7620,20000,.@part; break;
		default: callsub S_RefineValidate,0,7619,2000,.@part; break;
	}
	if( getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100) )
	{
		mes "[sP]";
		mes "! ! !";
		SuccessRefItem .@part;
		next;
		Emotion e_no1;
		mes "[sP]";
		mes "ha! wgnFC";
		mes "n[SvXu誺ZFAZܱjFA@w]ܰa!";
		close;
	}
	else
	{
		mes "[sP]";
		mes "! ! !";
		FailedRefItem .@part;
		next;
		if (rand(5) == 1)
			Emotion e_cash;
		else 
			Emotion e_omg;
		mes "[sP]";
		mes "yyyyyyy!!!!";
		next;
		mes "[sP]";
		mes "y...yy...";
		mes "u...yC";
		mes "Zbv{ǤlaFC";
		mes "......NiDLA|o˪!";
		close;
	}
S_RefineValidate:
	mes "[s]";
	if (getarg(0)) {
		mes "AQnvZ" + getarg(0) + "Z!";
		mes "nvܻݭn ^ff9999" + getitemname(getarg(1)) + "^000000HζO" + getarg(2) + "C";
	}
	else {
		mes "nvAҿܪo˳ƻݭn ^ff9999" + getitemname(getarg(1)) + "^000000HζO" + getarg(2) + "C";
	}
	mes "An~?";
	next;
	if( select("O:_") == 1 )
	{
		if( getequippercentrefinery(getarg(3)) < 100 )
		{
			mes "[sP]";
			mes "z!!";
			mes "ݨӳoZwgvܦhFˤl...";
			mes "nOA~vܡAi|yla!";
			next;
			mes "nOlaܥiN~ϥΤF!!";
			mes "bحdMSx";
			mes "^ff0000|F!!^000000";
			mes " AAQF!!";
			mes "ATw٭n~v?";
			next;
			if( select("O:_") == 2 )
			{
				mes "[sP]";
				mes "ܦnC";
				mes "pGӹLLzvZAӳylaAڤ߱]|aC";
				close;
			}
		}
		if( countitem(getarg(1)) > 0 && Zeny > getarg(2) )
		{
			delitem getarg(1), 1;
			set Zeny, Zeny - getarg(2);
			return;
		}
		else
		{
			mes "[sP]";
			mes "oǴNOAҾ֦Ҧ~?";
			mes "MܥiAOAƤAڤ]bRUAAڥIX]ӱonҦì!";
			close;
		}
	}
	else
	{
		mes "[sP]";
		mes "YϧAnڤ]Sk...";
		close;
	}
}